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DISCLAIMER 



Although each program has been tested by its contributor, no 
warranty, express or implied, is made by the contributor or 
1620 USERS Group, as to the accuracy and functioning of the ■ 
program and related program material, nor shall the fact of 
distribution constitute any such warranty, and no responsibility 
is assumed by the contributor or 1620 USERS Group, in con- 
nection therewith. 



1620 USERS GROUP PROGRAM REVIEW AND EVALUATION 



(fill out in typewriter or pencil) 

Program No. Date_ 

Program Name: 



1. Does the abstract adequately describe what the program is and what Yes No_ 

it does? 

Commen t 

2. Does the program do what the abstract says ? Yes No_ 

Comment 

3. Is the Description clear, understandable, and adequate? Yes No_ 

Comment 

4. Are the Operating Instructions understandable and in sufficient detail? Yes No_ 

Comment 

Are the Sense Switch options adequately described (if applicable)? Yes No_ 

Are the mnemonic labels identified or sufficiently understandable? Yes No_ 

Comment 

5. Does the source program compile satisfactorily (if applicable) ? Yes No_ 

Comment 

6. Does the object program run satisfactorily? Yes No_ 

Comment 

7. Number of test cases run . Are any restrictions as to data, 

size, range, etc. covered adequately in description? Yes No_ 

Comment 

8. Does the Program Meet the minimal standards of the 1620 Users 

Group? Yes No_ 

Comment 

9. Were all necessary parts of the program received? Yes No_ 

Comment ] . 

10. Please list on the back any suggestions to improve the usefulness of the program. 
These will be passed onto the author for his consideration. 

Please return to: Your Name 



Mr. Richard L. Pratt Company 
Data Corporation 

7500 Old Xenia Pike Address 
Dayton, Ohio 45432 



User Group Code_ 



THIS REVIEW FORM IS PART OF THE 1620 USER GROUP ORGANIZATION'S PROGRAM 
REVIEW AND EVALUATION PROCEDURE. NONMEMBERS ARE CORDIALLY INVI TED 
TO PARTICIPATE IN THIS EVALUATION. 

Li 

8/31/65 
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Expensive Desk Calculator 



Date: July 7, 1965 

Program author: Stuart E. Madnick 
Manual author: Larry-Stuart Deutsch 

Massachusetts Institute of Technology 
77 Massachusetts Avenue 
Cambridge, Massachusetts 

Telephone: UN 4 6900 

Direct Inquires to the Program author. 



INTRODUCTION! 

The Expensive Desk Calculator Program provides the 1620 user with a 
convenient, valuable calculating tool that is both versatile and easy to 
use. It is no longer necessary to waste the time involved in writing and 
compiling a FORTRAN program in order to perform simple numerical calculations. 

This program combines the ease of a desk calculator with the power of 
a high speed computer. All output occurs via the console typewriter. Input 
is accepted from either cards or typewriter in the form of single arithmetic 
expressions involving the normal operations of algebra ( +, -, X, / ), 
including the use of parentheses, and any of 11 predefined arithmetic functions. 
Expressions are evaluated immediately as they occur. Provisions also exist 
for defining symbols and reiterating a group of expressions. 

A number of simple input/output commands are provided in order to make 
input/output quite flexible. 

Internal accuracy is variable from 2 to 20 places, although, unless 
modified by command, it is standardized at 3 places. 



Example: The expression: 

7* ( 9+PI/3) *SQRT (L0G( 10 . 7-30*PI) ) /ATAN ( . 97) -RS 
could be evaluated in a fraction of a second. 

REQUIRED EQUIPMENT: 

I.B.M. 1620 with 2 OK memory and indirect addressing feature. 
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EXPENSIVE DESK CALCULATOR 



Program 

Stuart E. Madnick 



Manual 

Larry-Stuart Deutsch 



Massachusetts Institute of Technology 
77 Massachusetts Avenue 
August 1965 Cambridge, Massachusetts 

Modifications or revisions to this program, as they occur, 
will be announced in the appropriate Catalog of Programs 
for IBM Data Processing Systems. When such an announce- 
ment occurs, users should order a complete new program 
from the Program Information Department. 

LLL 
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KEY to CARD DECKS 

DECK NUMBER DECK CONTENTS 

1 SPS 20 K source deck 

2 20 K Auto-load object deck (not sequence numbered) 

3 40 K Auto-load object deck (not sequence numbered) 

4 20 K Monitor 1 system output object deck 
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PRELIMINARY NOTE: 

All typewritten lines (expressions, control commands, format commands, 
symbol commands, and data read under program control) must be terminated by 
the RS character on the console typewriter. The RS charactef is a single 
character ( not to be confused with the two characters R and S ) . Typing this 
character is equivalent to first depressing the RELEASE key and then the START 
key on the 1620 console. The RS character is the signal for the 1620 to start 
processing the line which it terminates. 



EXPRESSIONS: 

An expression is any mathematically valid combination of the operators 

* Multiplication 
/ Division 
+ Addition 

Subtraction 

P Exponentiation ( i.e. "raised to the power of...") 

with constants, and symbols, which the user has previously defined, 
(see DEFINE/a/c command) 

It should be noted that an operator can not directly follow another 
operator, nor can an operator be the first character in an expression (with 
the exception of a minus sign before a negative number) , nor can a constant 
or symbol directly follow another constant or symbol as such combinations are 
not mathematically meaningful. 

An expression may consist of a maximum of 72 characters including blanks 
which are permitted anywhere in an expression (except within a symbol or 
constant). Parentheses may be nested to a maximum depth of 5 levels. In the 
operation of the program the operator P (exponentiation) is mechanically 
similar to a level of parentheses thus decreasing the maximum depth of 
parentheses nesting by one level for each occurence. 

Example: The expressions: 

1-RS 
l.-RS 
1.547-RS 

1. 865*5/9-76. 859*9/SQRT(6)-RS 
SQRT (DX P 2 + DY P 2)=RS 

SQRT(SIN((9-PI)/8)-C0S(1.9J) -RS 



Assuming DX and DY are 
previously defined symbols 
Assuming P I is a 
previously defined symbol 



are VAilD expressions 
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while the expressions: 

TWOPI-RS 

3PI-RS 

4*/2-RS 
+-2/7-RS 

(B+ - SQRT(B*B-4*A*C))/(2*A)-RS 



are INVALID expressions. 



EVALUATION OF EXPRESSIONS: 

Expressions are evaluated from left to right according to the following 
hierarchy ; 

( ) Parentheses 

P Exponentiation 

* / Multiplication Division 

+ - Addition Subtraction 

The operator P (exponentiation) is the only exception to the left-to-right 
rule. A grouping of P operators and variables is evaluated from right to left. 

Example: The expression: 

5 P 76.9 P 6 P 87 -RS 

which appears mathematically ambiguous would be evaluated 
as though it were: 

5 P (76.9 P (6 P 87 )) -RS 

or 

5 U.9< 6 87) ) 



NUMERIC REPRESENTATION: 

Unlike the FORTRAN language, with which the user is probably familiar, 
there exists no distinction between fixed and floating point numbers 
(i.e. integers and numbers with decimal fractions). All numbers are treated 
as floating point. 

Example : 

1-RS is equivalent to 1.00-RS 

3/4-RS is equivalent to 3./4.-RS 



Assuming TWO and PI are 
previously defined symbols 
Assuming PI is a previously 
defined symbol 



Assuming A, B , C are 
previously defined symbols 



3/4-RS 



yields the result 



.7500 not 0.00 
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INPUT/OUTPUT: 

There exist two basic forms of input/outpul for numeric constants: 
INPUT; F Format A number with an optional decimal fraction 



Example: 

1.674 

.973 

0.852 



928 

9465 

7463.00 



E Format A number witha decimal fraction and a 

characteristic exponent 

(Scientific notation) 



Example: 



1.8549E+07 
6.45E-03 

-45.7509E3 

75962E4 



18549000,00 
.00645 
-45750.900 
759620000.00 



Numerical accuracy is variable from 2 to 20 places 
and numbers are maintained only to the specified 
accuracy within the 1620. Thus if too many digits 
are provided in input, the low order digits are lost, 
although the is no error in the interpretation of 
the number. 

Example: Assuming 8 place accuracy 

.123456789 is maintained as .1234567800 
123456789123456789 is maintained as 

123456780000000000. 



F Format A number with a decimal fraction as required 

E Format A decimal fraction with t characteristic 

exponent. 



Example: 



.76450000E-02 
-.95763000E+01 



.00765400 
-9.576300 



NOTE that, . although almost any E Format is 

permissible for input, the E Format used by 
the output routines is standardized at a field 
width of W + 6 where W is the places of accuracy 
currently being maintained. 
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Example: 

1.847 yields .18470000E+01 

45 yields .45000000E+02 

-.0065 yields -.65000000E-02 



SELECTION OF OUTPUT FORMAT: 

The desired output format may be selected with the commands: 

EFORM/ RS E Format 

FFORM/ RS F Format 

The occurrence of one of these commands causes all future 
output to be in the form selected until another format command 
is encountered. The output form can be changed at any noint. 

NOTE: Unless selected by command the programm assumes that 

F Format is desired and will produce all output in F Format. 



SYMBOLS : 

A symbol is any group of alphameric characters, the first of which is 
a letter , which does not exceed 5 characters. The symbol can be used anywhere 
a numeric constant can be used, assuming that its value has been previously 
defined. 

The symbols: 
Example: I RATE1 

JDIST RATE 2 

TIME RATE3 



LEFT 

LEFTD 

LEFTR 



are VALID symbols 
while the symbols: 



+ H I t &CD F+*T 

6 RATE @RATE EVALUATE 

*90 $IBSYS -TWO 

HTIME) T/8 45RAT 

1(98) 7&DIST (THING) 



are INVALID symbols 



NOTE: Special characters i.e. */+-'$ @ & ) ( 
are invalid characters for use in symbols. 

As yet no provision exists for subscripting. 



© 
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SYMBOL COMMANDS: 

DEFINE/ symb/c 



where syntb is any valid symbol and c is any valid 
constant, expression, or previously defined symbol. 
A maximum of 5 symbols may be defined. 



Example: 



DEFINE/DIST/SQRT(DX*DX + DY*DY) RS 

assuming that DX and DY are previously 
defined symbols 

DEFINE/PI/ATAN(1)*4 RS 

DEF1NE/PI/3. 1415926 RS 

DEFINE/TWO/ IT RS where IT is a previously defined 

symbol 



NOTE that a DEFINE may occur anywhere in a program, and 
a DEFINE can redefine a previously defined symbol. 

Example: 

DEFINE/PI /9. 85 RS 



DEFINE/PI/ATAU(D*4 RS 



the value of the symbol PI is now 
3.1415926 



DELETE/symb/ where symb is any valid symbol. This command deletes 

the symbol given from the symbol table. If a DELETE 
is used for a symbol that has not been previously 
defined no action occurs. 

Example: DELETE/ONE/ RS causes all future references 

to the symbol ONE to be 
references to an undefined 
symbol unless the symbol 
ONE is redefined 



CLEAR/ This command clears the entire symbol table. 

Example: 

CLEAR/RS causes all future symbol references 

to be references to undefined 
symbols unless they are defined 
somewhere later in the program. 



PRINT/ This command causes a listing of all presently defined symbols 

and the values that have been assigned to them to be printed. 

Example: DEFINE/PI/3. 1415926 RS 
PI/4-RS 

DEFINE/TWO/2 



DEFINE/TW6/7.1 RS 
DEFINE/PI/5.6 
DEFINE/THREE/ 3 



DELETE/ THREE/R-S 
PRINT/ RS 



would cause the following table to be prlntai 



PI - 5.6 
TWO - 7.1 



SPECIAL SYMBOLS: 



Two special purpose symbols have been provided. These symbol names are 
invalid for use as regular user-defined symbols as they will only function in 
the special manner for which they were included in the system. 

READ This symbol may occur anywhere in the program where a symbol 

or constant would be valid. When the statement in which 
it occurs is terminated by the RS character^ a carrige 
return is generated on the console typewriter and the 
character R is typed. The console typewriter is now 
waiting to accept a value which it will substitute for the 
READ symbol in the preceeding statement. Multiple READ 
symbols in a statement cause multiple values to be accepted 
from the console typewriter which will be substituted for 
the READ symbols in the order of their occurence in the 
statement. The RS character must terminate each value accepted 
from the typewriter. 

Example: 

9+2*READ -RS 

R 7.1 RS 

yields a result of 23.2 
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READ*READ +READ/5 -RS 
R 2 RS 
R 5 RS 
R 60 RS 

yields the result 22.00 

DEFINE /X/READ RS 
R 3.4657 RS 

causes X to be defined as 3.4657 



SQRT(READ) -RS 
R 625 RS 

yields the result 25.00 



RESULT This symbol may occur only In a DEFINE statement and refers 

to the result of the previous calculation. The value of the 
result of the preceeding calculation replaces the RESULT 
symbol. 

Example: 

3 + S(JRT(144)-RS 

DEFINE/RATE/RESULT RS 

causes the symbol RATE to be defined as 15 



EDIT COMMANDS: 



Several editting and error correction features have been included in 
the program to save the effort of rewriting statements ia order to correct 
careless mistakes or ommissions. 

Deletion Characters: 

@ "at sign" causes the deletion of the last non-blank 
character. Multiple @ characters cause the 
deletion of multiple non*-blank characters. 

Example: 

3+) @ ( L0G( *<3SQRF@T ( (@9 . 8) ) ) ) @«RS 
is equivalent to: 

3+(LOG(SQRT(9.8)))-RS 

£ "Record mark" causes the entire line in which it occurs 
to be ignored. This character may occur 
anywhere in a line and may be used to enter 
comments. After an = sign this character is 

ineffective and sense switch 4 must be used to 

ignore the line. 



© 



- 9 - 



COFRM/ causes all commands to be retyped. This command can be used 

to check the results of using the deletion characters. 

BRIEF/ negates the COFRM/ command. 



NOTE that the 1620 does not normally retype all commands 
therefore if retyping is desired it must be requested 
using the COFRM/ command. 

The edit commands may occur anywhere in a program. 



CONTROL COMMANDS : 



CARD/ 



TYPE/ 



EXIT/ 
FANDK/ 



causes input control to be transfered from the 

console typewriter to the 1622 card reader. The occurence 

of the CARD/ command on a card causes no action. 

causes input control to be transfered from the 1622 
card, reader to the console typewriter. The occurence of 
this command in typed input causes no action. 

NOTE The use of the TYPE/ and CARD/ commands is valid 
only for the 40K version of the Expensive Desk 
Calculator program. 

causes a program to be terminated. 

causes the program to modify the number of places of 
numerical accuracy. 

Example: FANDK/ RS cwMI the- typing of the message: 

TYPE TWO DIGIT NUMBER FROM 2 TO 20 INDICATING 
NUMBER OF SIGNIFICANT PLACES 



as soon as this message is typed the 1620 
will wait for a number to be typed in. (No 
carrige return will be generated and the RS 
character must terminate the typing of the 
input value ). 

NOTE The use of the FANDK command is valid only for the 
20 K version of the Expensive Desk Calculator 
Program designed for use with MONITOR 1 



© 



o 



- 10 - 



ITERATION COMMANDS: 
PROG/ RS 



causes all statements between the PROG/ command and 
the^/ character group to be reiterated until the 
sense switch Itl is turned on. Any statement, command, 
or expression may occur within the limits of a PROG/ 
except another PROG/. A maximum of 150 characters 
may occur in a prog (including blanks). (This usually 
means that approximately 5 statements may occur in 
a PROG/) 



PROGn/ where n is a number between 1 and A. This command 

alters the sense switch which turns off a PROG/ . 

NOTE that the PROGn/ command is not equivalent 
to the PROG/ command, and that it affects all future 
PROG/ commands, and that the PROG commands assume 
termination by sense switch 1 in the absence of a PROGn/. 
Example: 



DEFINE/X/0 RS 
PROG3/ RS 
PROG/ RS 
SQRT(X) -RS 
DEFINE/X/Xi-1 

#/ IIS 



generates a table of square roots 
which is terminated by turning on 
sense switch # 3. 



PROG/ RS 
COS (READ) RS 

#/ RS 

causes the 1620 to accept values for 
which it will compute cosines, until 
terminated by sense switch // 1. 



COFRM/ to 
DEFINE/X/0 RS 
def ine/x/0 
PROG/ RS 
prog/= 
SIN(x)=RS 
sin(x)= 
C0S(X)= RS 
cos(x)= 

0EFINE/X/X + 1 
def ine/x'x+1 



Note the retyping of each 
command. (Retyping is 
indicated by lower case 
although the 1620 actually 
has only upper case.) 



RS 
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causes the following output: 

SIN(O) » xxxxxxx 

COS(0) - aaaaaaa 

DEFINE/X/1 

SIN(l) - bbbbbbb 

C0S(1) « ccccccc 

DEFINE/X/2 



sense ^rftch ' 1 will 
terminate tnxs sequence. 
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APPENDIX 



FUNCTIONS: 

Eleven arithmetic functions have been provided for the convenience of 
the user. 



SIN 

ATAN 

COS 

LOGN 

LN 

LOG 

LOG10 

SQRT 

EXP 

EXP10 

ABS 



sine 

arctangent 
cosine 

logarithm 



Square root 
exponent 
it. it 

absolute value 



(radians) 

(radians) 

(radians) 

natural base E 
ii ii 

common base 10 



base e 
base 10 



i.e. e* 
I.e. 10* 



ERROR MESSAGES: 



Several error checks have been written into the system for the 
convenience of the user. The following messages will be typed when the appropriate 
error condition is encountered: 



* INPUT OVERFLOW* 
★ILLEGAL STRUCTURE* 

*PAREN ERROR* 

*PAREN OVERFLOW* 

♦UNDEFINED VARIABLE* 
*NAHE TOO LONG* 
*PROG OVERFLOW* 



laput restrictions have been exceeded 

Illegal command or command format, 
or improper arithmetic expression 

Improper use of parentheses - 
unmatched parentheses 

Maximum depth of parentheses nesting 
has been exceeded 

Variable has not as yet been defined 

Symbol name exceeds 5 characters 

Too many characters included within 
the limits of a PROG/ 



*SYMBOL TABLE OVERFLOW* Too many symbols have been defined 
★INFINITE* Division by zero 
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SYSTEM SUMMARY 



RS character must terminate all typewritten lines 

EXPRESSIONS: 

* Multiplication 
/ Division 
+ Addition 

Subtraction 
P Exponentiation 
() Parentheses 

72 character Maximum 

All numbers are floating point 

IKPUT/OUTPUT: 

F Format a number with an optional decimal fraction 

E Format a number with a decimal fraction and a characteristic exponent 

COMMANDS EFORM/ requests output in E Format 

FFORM/ requests output in F format 

(F Format is assumed by the program unless EFORM/ 
f ammanri, is used) 

SYMBOLS : 

1 to 5 alphameric characters first character must be a letter 

no special characters 

SYMBOL COMMANDS: 

DEFINE/ symb / c 



DELETE/symb/ 

PRINT/ 
CLEAR/ 

SPECIAL SYMBOLS: 
READ 



RESULT 



symb is any valid symbol 
c is any valid constant, expression, or 
previously defined symbol 

symb is any valid symbol 

causes printing of symbol table 
clears symbol table 

causes value to be accepted from console typewriter 
and substituted for READ symbol (Multiple READ 
symbols cause multiple values to be read) 

refers to result of last calculation 
permissible only in a DEFINE command 
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EDIT COMMANDS: 

@ character 

t Record 
mark 

COFRM/ 
BRIEF/ 



deletes last non-blank character (Multiple @ 
characters delete multiple non-blank characters) 

causes entire line in which it occurs to be ignored 



causes all statements to be retyped 
negates COFRM/ 

(1620 is normally in BRIEF/ mode) 



CONTROL COMMANDS : 
CARD'/ 
TYPE/ 
FANDK/ 

EXIT/ 



Transfers input control to 1622 card reader 

Transfers input control to console typewriter 

Modifies number of places of numerical accuracy 
(available only with MONITOR L version) 

Terminates program 



ITERATION COMMANDS: 

PROG/ RS. 



Reiterates all commands within its limits until 
appropriate sense switch is turned on 



PROGn/ 



sets sense switch which turns off a PROG/ 
not identical with a PROG/ 

(sense switch # 1 is assumed in the absence of 
a PROGn/ command) 



PROGRAM NOTES: 



I. 20 K and 40 K Ay co-load versions 

The 20 K and 40 K Auto- load versions arc self loading programs. 
To load these programs the user does the following: 

1. Press INSTANT STOP key on 1620 console 

2. Press RESET key on 1620 console 

3. Place card deck in 1622 card reader hopper 

4. Press LOAD key on 1622 card reader 

5. Press READER START key on 1622 card reader to read last card 

when the program has been loaded the message READY will be typed. 

WARNING: The 20 K and 40 K. Auto-load versions are not sequence 

numbered, therefore caution should be excercised in handling 
these decks. < 



The 20 K and 40 K versions are identical with the following exceptions: 



Maximum characcar 

imput 

PROG/ length 

Maximum number of 
symbols 



20 K version 
72 

5 statements 
120 characters 

5 



40 m version 

300 

50 statements 
2500 characters 

100 



II. 20 K MONITOR 1 version 

REQUIRED EQUIPMENT: I.B.M. 1620 with 1311 Disk, 20K memory,, and 
indirect addressing feature. 

The decks supplied consits of MONITOR 1 system output preceeded by 
the correct DUF (Disk Utility Program) cards necessary to load this 
program onto the disk . 

NOTE that this program must be loaded using the name DEMO in order 
to take advantage of the FANDK/ command. 

Once located on Disk storage, the program may be called by using 
the appropriate |£ XEQSDEMO MONITOR 1 control card. 



V 



- 16 



ADDITIONAL NOTES: 



In the event of a program failure due to an infinite loop or a 
CHECK STOP the program may be re-initialized by the following proceedure: 

1. Preas INSTANT STOP key on 1620 console 

2. Preas RESET key on 1620 console 

3. Press INSERT key on 1620 console 

3. TYPE 4902402 (no blanks and no carriage) 

4. TYPE the RS character 



In the event that this proceedure fails, it will be necessary to reload 
the Program using the proceedure outlined in the PROGRAM s»TES. 



The SPS aource deck supplied is the source deck for the 20 K MONITOR 1 
version. If the program is too be modified for larger machines it will be 
necessary to reassemble the program with the following parameters greatly 
increased: INPUTZ TOP TAB1Z PROGZl PROGZ2 0EFTB1 OEFTB2. 

The significance of these parameters is explained at the beginning of the listing 
of the SPS source deck. 



The SPS source deck supplied is the source deck for the 20 K MONITOR 1 
version. It should be noted that this program expects to be loaded starting 
at location 02402 with the mantissa length located at location 02388. The 
user has the choic of either loading the mantissa lenght (a two digit number) 
into location 0239b or removing the two references to this location. 



The program contains a special 16 digit entry table which defines 
all functions t commands t and constants. The table has the following form: 



Identifier 1 st 10 digits 



Alphameric name with flag over first letter 
(right adjusted) 



IXJ& 



Location 



U th -16 th digits 



Record mark - command 
Digit 1 - function 
Digit -constant 

Location of command, function, or constant 



This table is provided as a convenience to users who wish to modify the 
program themselves. 



© 
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The operation of exponentiation denoted by the operator P is subject 
to slight roun-off errors. 



No error checks exist for numeric overflow or underflow. Thus a number 
that does not lie between 10 +99 ^ 1Q -99 will be processed incorrectly. 

Example: 

(1.3E+47*2.94E-58/2. 941-58) will be processed correctly 

(1.3E+47/ 2.94E-58*2.94E-59) will not be processed 

correctly 



© 
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READY 

*■** EXPENSIVE DESK CALCULATOR SAMPLE PROGRAM ****R5 

THE CHARACTERS * AND $ CAUSE THE LINE TO BE I GNORED*R-S 

THIS PROVIDES AN EASY TO REMOVE ERRORS AND INSERT COMMENTS *RS 

INPUT CAN BE IN A VARIED STYLE, ALL THE FOLLOWING ARE LEGAL*R$ 

5=RS 5?QOOOOOO 
5.=RS 5.'QOOOOOO 
5.0=*S 5.QOOOOOO 
+ 5.0=RS 5.QOOOOOO 
0.5E1=RS 5JOOQOOOO 
0.005E+3=B5 5.0000000 
50E-1=*S 5.0000000 

NOTE THAT THE OUTPUT IS IN *F* FORMAT (DECIMAL NOTAT I ON )*R5 

*E* FORMAT (SCIENTIFIC NOTATION) CAN BE OBTAINED BY THE ( EFORM/ )*RS 

COMMANDERS 

EFORM/R-S 

SAMPLE *E* FORMAT OUTPUT*RS 

5=RS ;50000000E+01 
5.=RS .'5000Q000E+01 
0.005E3=R5 .'50000000E+01 

OUTPUT CAN BE RETURNED TO *F* FORMAT BY THE COMMAND (EFORM/ )+R5 
FF0RM/R5 

WHENEVER AN (?) SIGN IS USED IN A LINE THE PRECEEDING CHARACTER IStRS 
DELETED. US 

MULTIPLE (5) SIGNS DELETE A CORRESPONDING NUMBER OF LETTERS. «5 
THE COMMAND (COFRM/) CAUSES THE PROGRAM TO ECHO THE INPUT.tK 
COFRM/RS 
1+1-fiS - 

1+1= 2.0000000 

1 + 00PS®a&a1=R-S 
1+1= 2.0000000 

NOTE THAT THE LETTERS OOPS WERE DELETED. tR-S 

SENSE SWITCH 4 CAN ALSO BE USED TO DELETE AN IN°UT LI 

THIS IS ESPECIALLY IMPORTANT SINCE THE * AND -$ HAVE NO EFFEr.TtRS 

ONCE THE = SIGN HAS BEEN I N PUT ED ON THE LLNE.R-S 

(SENSE SWITCH It USED TO IGNORE ABOVE LINE.)*R$ 
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SAMPLE PROGRAM — PAGE 2 *R-S 



THE FOLLOWING FUNCTIONS ARE DEFINED IN THE SYSTEM. ERS 

S|N(2)=fiS . 
SIN(2)= 0.90929742 

(NOTE THAT THE COFRM/ MODE IS ON - ALL INPUT IS ECHOED) ~'*R5 

THE COFRM/ MODE CAN BE TURNED OFF BY THE COMMAND (BR|EF/)^R5 

BRIEF/RS 
BRI EF/= 

BACK TO THE FUNCTIONS AGAIN^RS 

SIN(2)=RS 0.909297^2 
C0S(2)=fiS -0,41614683 
SQRT(3)=fi5-1. 7320508 
LN(4)=«S 1.38629^3 
L0GN(4)=ft$ 1.3862943 
LOG(5)=*5 0. ! 69897 
L0G10(5)=fiS 0,69897 
EXP(6)=*5 403.42879 - 
EXP10(7)=fi$ 10000000.0 
ATAN(8)=R5 1.4464413 

THE OPERATORS MULTI PLI CATION. (*) , Dl VI S I ON X/ ) , ADDITION ( + ),tR$ 
SUBTRACTION (-), AND ...'.TO THE POWER... (9) ARE AVAI LABLE ,^R5 

EXAMPLES. +R5 

ATANd )*4=:iS 3J415926 

25*5*SQRT(4)+SIN(2.68)=SS 250.44537 

S|N(25)P2+COS(25)P2)(5)=fi5 0.~99999999 

(SINE SQUARED PLUS COSINE SQUARED EQUAL 0NE.)«S 



FACILITIES ARE ALSO AVAILABLE FOR DEFINING SYMBOLS. *RS 

DEE|NE/P|/ATAN(1)*4t;5 
3.1415926 

THE ABOVE COMMAND DEFINED THE SYMBOL PI TO BE ATAN(1)*4 {-B.141 5926) ;m 

PI=R-S 3.1415926 
2*?I=RS 6.2831852 

7*(9+PI/3)*SQRT(LOG(1.(S>0.7-30*P| ) ) /ATAN( .97)=35 126.59750 



ADDITIONAL SYMBOLS CAN BE DEF| NED.tR-S 

DEFINE /ONE /IRS 

1.0000000 
DEFINE/TW0/2R-S 

2.0000000 



0NE+TWO=RS 3.0000000 
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SAMPLE PROGRAM — PAGE m 



THE COMMAND (PRINT/) CAUSES THE ENTIRE SYMBOL TABLE TO BE PRINTED.^ 

PRINT/IS _ 

P|= 3.1415926 
ONE= 1.0000000 
TWO= 2.0000000 

THE COMMAND ( DELETE/S YMB/ ) CAN BE USED TO DELETE A SYMBOL. *R5 

DELETE/ONE/RS 

PRINT/R5 - 

Pl= 3.1415926 
TWO= 2.0000000 

THE SYMBOL ONE HAS BEEN REMOVED FROM THE SYMBOL TABLE.+RS 
THE COMMAND (CLEAR/) WILL CLEAR THE ENTIRE SYMBOL TABLETS 
CLEAR/RS 
PRINT/R5 

(NOTHING PRINTED - TABLE EMPTY). *RS 

DEEINE/P|/ATAN(1)*4ft5 
3. 1415926 

THE SPECIAL SYMBOL (RESULT) GIVES THE ABILITY TO DEFINE SYMBOLStRS 
AFTER THEY HAVE BEEN CALCULATED WITHOUT RE-CALCULATI ON.tRS 

EXAMPLE ;*R5 

7*( 9+ PI /3 ) *SQRT ( LOG( 1 . 7-30*PI ) ) /ARA<2(5>TAN( . 97 )=05 1 26^59750 
DEFI NE/ANSWR/RESULTR-S 
ANSWR=f!5 126759750 

NOTE THE SAME EFFECT CAN BE ACCOMPLISHED BY THE FOLLOWING PR0CEDURE.*R5 

DEF I NE /ANSWR/ 1 2675970RS 
126.59700 

USE OF THE RESULT FEATURE SAVES THE BOTHER OF RETYPING NUMBERS lm 
THERE IS ANOTHER SPECIAL SYMBOL (READ).*R5 

FOR EVERY OCCURRENCE OF THE SYMBOL (READ) THE PROGRAM WILL BE*R5 
HALTED AND A VALUE WILL BE REQUESTED FOR I NSERTI ON.WS 
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SAMPLE PROGRAM — PAGE 4 *R5 

EXAMPLE *R5 

9+2*READ=«S 

R 

7.1=*S 7.1000000 
23.200000 

THE VALUE OF 7.1 WAS INSERTED INTO THE EXPRESSION TO OBTAIN 23.2*R5 

SQRT(READ)s*5 

R 

l6dS 16.000000 
4J0000000 

THE IMPORTANCE OF THIS SYMBOL WILL BE SEEN WITH THE NEXT COMMAND^ 
***THE ITERATION C0MMAND***tR5 

THE COMMAND (PROG/) SWITCHES ON THE ITERATION MODE;*RS 
ALL EXPRESSIONS AND COMMANDS FOLLOWING THE (PROG/) WILLtRS 
BE READ IN, BUT NOT ..EXECUTED UNTIL A DOUBLE RECORD MARK t*/R5 
COMMAND IS RECEIVED. THEN ALL THE EXPRESSIONS AND COMMANDS *R5 
WILL BE EXECUTED REPEATEDLY UNTIL TERMINATED BY SENSE SWITCHtRS 
ONE TURNED ON.tRS 

EXAMPLE M5 

DEFINE/X/0R5 
.00000000 

PROG/iK 

DEFINE/X/X+1 1 * 

SORT(X)=*S 

tt/R-S 

1.0000000 1.0000000 
2.0000000 1.4142135 
3,0000000 1.7320508 
4.0000000 2.0000000 
5.0000000 2.2360679 
6.0000000 2.4494897 
7.0000000 2.6457513 
8.0000000 2.8284271 
9.0000000 3.0000000 
READY 

SENSE SWITCH ONE WAS TURNED ON TO TERMINATE ITERATION.^ 
NOTE THAT A TABLE OF SQUARE ROOTS WAS PRODUCED.^* 

THE USE OF THE (READ) CAN BE SEEN BELOW. *RS 

PR0G/R5 

C0S(E(3READ)=35 



3. 14159*55 3.1415900 
-1.0000000 

R 



© 
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SAMPLE PROGRAM — PAGE 5 *K 

36.35=tt 36.350000 
0.21987319 

READY 

SENSE SWITCH ONE AGAIN TERMINATED ITERATI ON.tR-S 

NOTE THAT THE ITERATION LOOP REQUIRED A NEW ARGUEMENTtR-S 
FOR THE COSINE FUNCTION EACH TIME - THEN EVALUATED THEWS 
FUNCTI ON.*R-S 

THE COFRM/ MODE CAN ALSO_BE APPLIED TO THE (PROG/) MODEtR-S 
WITH INTERESTING RESULTS. tR-S 

COFRM/K 

PROG/RS 
PROG/= 

DEFINE/X/X+0.5R5 
DEF|NE/X/X+0.5= 
S IN(X)=R5 
SIN(X)= 

COS(X)=r;S 
COS(X) = 
**/RS 

DEFINE/X/X+0.5= 

X+0.5= 9.5QOOOOO 
SIN(X)= -0,07515112 
COS(X)= -0.99717215 
DEFINE/X/X+0.5= 

X+0.5= 10.000000 
SINfX)= -0^54402111 
COS(X)= -0.83907152 

DEF|NE/X/X+0.5= 

(+0.5= 10.500000 
SIN(X)= -0.87969576 
C0S(X)= -0.47553692 
DEF|NE/X/X+0.5= 

X+0.5= 11.Q00000 
SINf X)= -0.9999902 
COS(X)= 0.00442569 
READY 

SENSE SWITCH ONE AGAIN TERMINATED L00P.±::5 

THERE IS AN AUXILIARY COMMAND PROGN/ WHERE M=l,2,3, OR 4.WS 
T HERE I SANAUXI LI ARYC OMMANDPROGN/WHEREN= 
^UNDEFINED VARIABLE* 

NOTE WHAT HAPPENS WHEN ± IS PLACED AFTER = SIGN ( ABOVE ) .£;15 

THE PROGN ' COMMAND CHANGES THE TERMINATING CONDITION OF Atrs 
PROG/ FROM SENSE SWITCH 1 TO SENSE SWITCH N.« 

NOTE THIS COMMAND DOES NOT INITIATE THE PROG/ MODE . 

IT ONLY CHANGES THE TERMINATING CONDI Tl ON. £"5 

ONCE A PROGN 7 HAS .BEEN USED IT PREVAILS UNTIL OVERRI DOENfcS 

?, Y ANOTHER PROGN/. THE PROGN/ COMMAND CAN BE USED WITH PROG/ 
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SAMPLE PROGRAM -- PAGE 6 *R5 

THERE ARE FOUR MORE CONTROL STATEMENTS .^R-S 

CARD/JRS 
TYPE/*!5 
EXlT/tRS 
FANDK/iRS 

CARD/ AND TYPE/ TRANSFER. INPUT CONTROL TO THE CARD READER OR tRS 
TYPEWRITER RESPECTIVELY.^ 

EXIT/ TRANSFER CONTROL TO THE MONITOR I SUPERVISOR (FOR SYSTEMS iR-S 
THAT USE IT).±R$ 

FANDK/ ALLOWS THE USER TO CHANGE THE NUMBER OF SIGNIFICANT PLACEStRS 
IN THE CALCULATIONS. THIS COMMAND SHOULD ONLY BE USED WITHERS 
1 620S UNDER MONITOR I- SYSTEM - THE INSTRUCTIONS IN THE MANUAL+RS 
SHOULD BE READ FIRST. «S 

FANDK/RS 
FANDK/= 

TYPE TWO DIGIT NUMBER FROM 02 TO 20 INDICATING NUMBER OF SIGNIFICANT FIGURES 

READY 

*tXEQSDEMO 20 
E XECUTION 

NOISE DIGIT 
MANTISSA LENGTH 20 
SUBR SET 02 
READY 

1=RS 1~0000000000000000000 _ 
NOTE TWENTY PLACE ACCURACY. tR-S 

DEFINE/P|/ATAN(1)*4RS 
3.1415926535897932384 

P|/2=r,s 1.5707963267948966192 

SIN( P I / 2 ) =R-S 1.0000000000000000000 

2P2=RS 3.9999999999999999998 

THIS ENDS THE TEST PROGRAM. GOOD LUCK.+RS 
**************************** S . E . M. *************************+R>S 
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SYMBOL 


TABLE 










VARMES 


07601 


START1 


02522 


RSLASH 


05060 


REQUAL 


05068 


READP2 


08384 


READP1 


08254 


PROG1 1 


08814 


PROGZ2 


00150 


PROGZl 


00005 


PROGER 


09146 


PR0GD2 


10976 


PROGD1 


10975 


PROERR 


09179 


PERIOD 


10981 


LSLASH 


04474 


LBRKST 


06163 


IOCHCK 


03582 


INSRT2 


06908 


INSRTl 


06276 


INPUT2 


12251 


INPUTZ 


00072 


EFFECT 


05247 


DEFTB2 


00075 


DEFTB1 


00005 


DEFERR 


10430 


DEFERM 


10443 


CARDER 


08234 


A 


06185 


ABSF 


10794 


AG1 


07080 


ALINT 


11724 


ALMIN 


12075 


ALPHA 


12757 


ARP 


11532 


AT 


06181 


ATANF 


10642 


AZERO 


10978 


A4 


07567 


BACK 


02934 


BCALC 


05292 


BEGN 


08059 


BLANK 


12071 


BRIEF 


09306 


CALC 


05248 


CANCL 


11320 


CARR 


02758 


CLAPR 


08488 


CLEAN 


03486 


CLEAR 


06067 


CNT 


10209 


COFRM 


09286 


COMM 


10888 


COMPR 


07331 


COMS 


09237 


CONEX 


08157 


CONST 


10813 


CONTR 


07431 


COSF 


10718 


DCODE 


08211 


DEFE 


09558 


DELE 


09326 


DELT 


07979 


DELI 


09346 


DEL2 


07588 


DIG6 


04348 


DIGL 


08163 


DIGR 


08164 


DIGSV 


04349 


DOL 


06171 


DOWN 


04756 


DSAVE 


09593 


E 


10991 


ECNT 


11471 


EFORM 


09246 


END 


06644 


END2 


06908 


EQUAL 


06177 


EXPF 


10680 


EXPTN 


10528 


FADD 


05172 


FETCH 


06204 


FFKK 


11251 


FFKK2 


11299 


FFORM 


09266 


FILL 


12677 


FIND 


04313 


FINE 


03776 


FIRST 


02602 


FKCK 


03708 


FLAG 


10994 


FMUL 


05210 


F002 


03350 


FORM 


10973 


FRAC 


12231 


FRACT 


06564 


FSIGN 


10971 


FUDGE 


12659 


FULL 


10970 


FULLP 


05844 


FUNC 


07440 


FUNT 


07396 


GFFKK 


02542 


GOOP 


06952 


INC 


11131 


INDIC 


08162 


INERM 


03633 


INERR 


03620 


INFIN 


04613 


INLOP 


06312 


I NPUT 


12101 


INSRT 


13069 


INT 


12121 


INTEX 


08152 


INTO 


09666 


INT02 


10162 


INT03 


10284 


INT04 


10150 


INTST 


12248 


IR1 


06943 


KFRAC 


10275 


KINT 


11891 


LBK 


03778 


LBRK 


06161 


LEVEL 


05894 


L I STL 


09214 


LISTP 


09117 


LLPAR 


04632 


LMI 


04026 


LNGMS 


08179 


LOAD 


12487 


LOGNF 


10566 


LOGTN 


10490 


LOG 10 


07643 


LOJP 


04362 


LOOP 


06384 


LOOPD 


09774 


LOOPR 


03266 


LOOPT 


07200 


LOPOT 


08570 


LPAR 


06173 


LPL 


04006 


LPOW 


04110 


LRPOW 


04536 


LSTAR 


04090 


MESS1 


12759 


MESS2 


12853 


MESS3 


06187 


MINUS 


10989 


MIXED 


11900 


MOVE 


09490 


NEG 


04418 


NUMB 


10968 


NUMBR 


11107 


OK 


04430 


OUTZE 


12048 


PARER 


04744 


PARFL 


05857 


PARMS 


04813 


PART2 


12524 


PCNT 


06203 


PDIG 


10924 


PEND 


07020 


PLUS 


10985 


POOP 


03170 


PORM 


10974 


POW 


06167 


PRINF 


08546 


PRINT 


11000 


PROG 


08722 


PROG1 


08966 


PROG2 


09034 


PROG3 


09126 


PR0G4 


09070 


PROTR 


08533 


PULL 


05740 


PUSH 


05506 


PUT 


1 1644 


PZER 


1 2068 


R 


08361 


RAT Y 


02782 


RBK 


04840 


RBRK 


06159 


RCNT 


12655 


RDIG 


05895 


READ 


02602 


READG 


10972 


READR 


02806 


READY 


11600 


RELOC 


07096 


RMI 


05036 


RMK 


12079 


RPAR 


06175 


RPL 


05016 


RPOW 


05052 


RRPAR 


05148 


RSAVE 


08873 


RSCAN 


05470 


RSTAR 


05044 


RTRN 


10923 


SAVE 


05897 


SET 


02854 


SHUV 


03382 


SIGN 


06752 


SINE 


10756 


SKIPE 


11388 


SLASH 


06169 


SLEV 


08379 


SNUMB 


05432 


SQRTF 


10604 


SSUM 


05344 


STAR 


06165 


START 


02402 


STERM 


05388 


STOPL 


09093 


STRER 


03954 


STRMS 


03967 


SUM 


06111 


SVAL 


05300 


SWAP 


12406 


SWAP2 


19502 


SWAP3 


12488 


TABD 


09890 


TABD2 


09902 


TABN 


07520 


TAB 1Z 


00150 


TCNT 


09689 


TEMP 


12078 


TERM 


06134 


TIT 


12661 


TOLNG 


08166 


TOP 


20000 


TRAl 


12512 


TSAVE 


05733 


TSX 


04664 


TYPE 


12004 


TYPER 


08214 


URP 


07176 


URP1 


07376 


VAL 


06089 


VARER 


07588 


WRITE 


03672 


ZERDV 


04592 


ZERO 


10946 


ZZERO 


06156 







00010* 
00020* 
00030* 
00040* 
00050* 
00060* 



EXPENSIVE DESK CALCULATOR 



00070* 

00080* 

00090* 

00100* 

00110* 

00120* 

00130* 

00140* 

00150* 

00160 

00170 

00180 

00190 

00200 

00210 



INPUTZ = SIZE OF INPUT AREA 
TOP = TOP OF CORE 

TAB1Z = SIZE OF PAREN TABLE (NO. OF LEVELS = TABU/2*FF 

THE «P« (POWER) OPERATOR USES THE PAREN TABLE ALSO 
PROGZl = NUMBER OF STATEMENTS IN PROG 

= TOTAL LENGTH OF PROG STATEMENTS 
= NO. OF DEFINE VARIABLES 

= LENGTH OF DEFINE VARIABLES ( NO.=DEBFT2/FFKK) 
MANTISSA LENGTH (CALCULATED BY PROGRAM) 



KK) 



PROGZ2 
DEFTB1 
DEFTB2 
FFKK = 

INPUTZ DS 

TOP 

TABlZ 

PROGZl 

PROGZ2 

DEFTB1 



00220 DEFTB2 
00230* 
0024C START 

00250 
00260 
00270 
00280 
00290 
00300 
00310 
00320 
00330 

00340 STARTl 



DS 
DS 
DS 
DS 
DS 
DS 



0»72» » 
O»20000» » 
0»150« » 
0»5» • 
0»150, , 
0t5» • 
0.75t» 



00072 
20000 
00150 
00005 
00150 
00005 
00075 



00000 
OOOOO 
OOOOO 
OOOOO 
OOOOO 
OOOOO 
OOOOO 



TF FFKK»2398 



CF 
TF 
AM 
TFM 

S 

SF 

TDM 

TFM 

TDM 

TFM 



END OF 



DORG 
IF SS3 



FFKK-1 
FFKK2 »FFKK 
FFKK2 » 2 
CNT»ZZER0-1 
CNT ♦ FFKK 
-CNT 
RDIG'O 

PROGD2»01100»7 
RATY+9.-1 
PROGD2»00» 10 
MONITOR SECTION 
FIRST-24 
*-4 

ON MANTISSA LENGTH CAN BE CHANGED 



00350* 
00360 
0037C 
00380* 

00390* APPROPRIATE ROUTINE MUST BE WRITTEN 

00400 GFFKK RCTY 

WATY MESS1 
RNTY FFKK-1 
BC4 *-12 
BTM WRITE»MESS3 
BTM FKCK»0 



0041C 
00420 
00430 
00440 

00450 FIRST 
00460* 
00470* 
00480* 
00490* 
00500 
00510 
00520 
00530 
00540 
00550 
00560 
00570 
00580 
00590 
00600 
00610 

00620 CARR 

00630 

00640 

00650 READ 



START OF MAIN PROGRAM 



INITIALIZATION 



TFM 


CNT. INPUT-9 


TFM 


LEVEL. 


AM 


CNT. 8 


TR 


-CNT.C0MS-1 


CM 


CNT. INPUT+2*INPUTZ-20 


BNP 


*-36 


BTM 


STERM. ZZERO 


BTM 


SSUM. ZZERO 


3D 


CARR, READG 


TFM 


TSAVEt SAVE 


BD 


INT04.DIGR 


BD 


PR0G2»PR0GD2 


RCTY 




TDM 


INTST, 


DC 


l,i,* 


DS 


1 , FIRST 



LOC. 


02398 




02402 


26 


11251 


02398 


02414 


33 


11250 


OOOOO 


02426 


26 


11299 


1125 1 


02438 


11 


11299 


—0002 


02450 


16 


10209 


—6155 


02462 


22 


10209 


11251 


02474 


32 


1020R 


UUUUU 


02486 


15 


05895 


Art e\r> n 


02498 


16 


10976 


— 1 1 00 


02510 


15 


02791 


0000 J 


02522 


16 


10976 


000—0 


02534 


49 


02578 


OOOOO 


02541 








02542 


34 


OOOOO 


00102 


02554 


39 


12759 


00100 


02566 


36 


11250 


00100 


02578 


46 


02566 


00400 


02590 


17 


03672 


-6187 


02602 


17 


03708 


-0000 


02614 


16 


10209 


J2092 


02626 


16 


05894 


-0000 


02638 


11 


10209 


-0008 


02650 


31 


1020R 


09236 


02662 


14 


10209 


J2225 


02674 


47 


02638 


01100 


02686 


17 


05388 


-6156 


02698 


17 


05344 


-6156 


02710 


43 


02758 


10972 


02722 


16 


05733 


-5897 


02734 


43 


10150 


08164 


02746 


43 


09034 


10976 


02758 


34 


OOOOO 


00102 


02770 


15 


12248 


OOOOO 


02781 


OOOOl 




02602 


00001 





b 



o 
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00660 RATY 


RATY 


INPUT 


02782 


37 


12101 


00100 


a a £. *7 rut- 


SPECIAL SYMBOLS $ OR REC.MK. 


— riFI FTP 1 IMP* 1 AT 1 c f rihi . 
UCLtL 1 C L i INu . Ml O I Oil 


- DELETE P 


UUoO U* 


US CHARACTER 










UUo V U* 


SS 4 ON 


t r MHOC 1 TMC 

IGNUKt LINt 










007 


BTM 


I OCHCK » READ 


02794 


j 7 


03582 


—2602 


UU f 1 *J K t AUK 
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2806 


45 


02 83 


12103 




BD 




02818 


43 


08966 


10975 


00730 


T DM 


RD IG » 1 


02830 


15 


05895 


00001 


00740 


T FM 


CNT » I NPUT-2 


02842 


16 


10209 


J2099 


00750 SET 


AM 


CNT ♦ 2 


02854 


1 1 


10209 


-0002 


0076 


BNR 


*+20 •■"CNT 


02866 


45 


02886 


1020R 


0077 




READ 


02878 


49 


02602 


00000 


0078 


DORG 


* — 4 


02885 








0079 


Q 


FOllAI .-rNT 
LUwALf U ll 1 


02886 


24 


06 177 


1020R 


o a q h o. 


BN E 


SET 


02898 


47 


02854 


01200 




T R 


r m T . cr o i l a i 
— CN i ♦ EUU AL 


02910 


3 1 


1 020R 


06177 


00820 


T FM 


CN 1 ♦INPUT —2 


02922 


1 6 




J209 9 




AM 


CNT ♦ 2 


2934 


i i 
1 1 


10209 


— 0002 


00 84 


C 


AZ-ERO t —CNT 


02946 


24 






0085 


BL 


BACK 


02958 


47 


02934 


1300 


0086 


£ 


nni .-rwT 


02970 


24 


06 171 


102 OR 


0087 


BE 


READ 


02982 


46 


02602 


01200 


A A Q Q a 


C 


at i_ruT 


02994 


2 4 


06181 


1020R 


0089 


BE 


CLEAN 










009 00 


C 




030 1 8 


24 


12071 


1020R 


00910 


BE 


SHUV 


03030 








(*\ A a *5 A 


C 




03042 


2 4 


06177 


1 02 OR 


0093 


BNE 


BACK 




47 


02934 


01200 


00940 


B NR 


M- A. ^ n m T KIDl IT 

* + Z U . IINrUI 


03066 


45 


03086 


12101 


0095 


B 


RE AD 


03078 


49 


02602 


nnnnn 


0096 


DORG 


*— 4 


03085 










BD 


*+ "X A « DADU 
" T JO 'rURM 


03086 


43 


03122 


10974 


00960 


RC TY 




03098 


34 


00000 


00102 


00 99 


w aty 


1 NPUT 


03110 


39 


12 10 1 


00100 






FOl 1 A 1 • T NJPI IT 


03122 


24 


06177 


12101 


1 1 


BE 


READ 


03134 


46 


02602 


01200 


10 2 


BD 


PROGll .PROGD1 


03146 


43 


08814 


10975 




T FM 


TNT • T WPl IT 


03158 


16 


10209 


J2101 


1 40* 




ru*> di*LM** cnHK^L. i ti\o 










0x050 POOP 


T f 


1 RD^ «DI 1 1 Q 


03170 


26 


06161 


10985 


01060 


T F 


LBRKST » LBRK 


03182 


26 


06163 


06161 


1 07 






03194 


24 


10981 


1020R 


1 8 .0 


BE 


loopr 


03206 


46 


03266 


01200 


109 


Q 




03218 


24 


06185 


1020R 


0110 


BMP 


LOOPR 


03230 


47 


03266 


01100 


1 1 1 


TF 


LBRK »-CNT 


03242 


26 


06161 


1020R 


0112 


AM 


CNT , 2 


03254 


11 


10209 


-0002 


01130 LOOPR 


C 


LBRK »LPAR 


03266 


24 


06161 


06173 


01140 


BE 


LLP AR 


03278 


46 


04632 


01200 


01150 


TF 


LBRKST .LBRK 


03290 


26 


06163 


06161 


01160 


C 


LPAR »-CNT 


03302 


24 


06173 


1020R 


01170 


BE 


LOOPR-24 


03314 


46 


03242 


01200 


01180* 


FETCH 


IS FLEXIBLE ROUTINE TO 


CONVRT INPUT INTO FLOATING POINT NO 


01190 


T FM 


IR1 ,# + 24 


03326 


16 


06943 


-3350 


01200 


3T 


FETCH ♦ CNT 


03338 


27 


06204 


10209 


01210 F002 


BTM 


SVAL .numb 


03350 


17 


05300 


J0968 


01220 


TF 


CNT ♦ PCNT 


03362 


26 


10209 


06203 


01230 


B 


LBK 


03374 


49 


03778 


00000 


01240 


DORG 


*-4 


03381 








01250 SHUV 


TF 


PCNT .CNT 


03382 


26 


06203 


10209 







27 



01260 
01270 
01280 
01290 
01300 
01310 
01320 
01330 
01340 

01350 CLEAN 

01360 

01370 

01380 

01390 

01400 

01410 

01420 

01430 

01440 

01450 I0CHCK 
01460 
01470 
01480 
01490 
01500 
01510 
01520 

01530 WRITE 
01540 
01550 
01560 
01570 
01580* 
01590* 



INERR 
INERM 



SM 


CNT * 1 


03394 


12 


10209 


-0001 


AM 




03406 


11 


06203 


-0002 


c 


1 rLll i 


03418 


24 


12071 


0620L 


BE 


*— 24 


03430 


46 


03406 


01200 


SM 


PCNT » 1 


03442 


12 


06203 


-0001 


TR 


-CNT »-PCNT 


03454 


31 


1020R 


0620L 


SM 
B 


CNT » 1 


03466 


12 


10209 


-0001 


BACK 


03478 


49 


02934 


00000 


DORG 


*-4 


03485 








AM 


CNT » 1 


034*6 


11 


10209 


-0001 


TF 


PCNT »CNT 


03498 


26 


06203 


10209 


SM 


CNT .4 


03510 


12 


10209 


-0004 


CM 


CNT » I NPUT-1 


03522 


14 


10209 


J2100 




READ 


03534 


47 


02602 


01300 


T R 


L, ll 1 » "Lll 1 


03546 


31 


1020R 


0620L 


S M 
B 


CNT ♦ 1 


03558 


12 


10209 


-0001 


BAC K 


03570 


49 


02934 


00000 


DORG 


*-4 


03577 








DORG 


* + 6 


03582 






00400 


BC4 


-I0CHCK+1 


03582 


46 


0358J 


BI 


-IOCHCK+1»01600 


03594 


46 


0358J 


01600 


BNR 


INERR* INTST 


03606 


45 


03620 


12248 


BB 




03618 


42 


00000 


00000 


DORG 


*-9 


03620 








BTM 


WRITE* INERM 


03620 


17 


03672 


-3633 


DAC 


17.*INPUT OVERFLOW* ' » 


03633 


00034 




DS 


5 


03670 


00005 




RC TY 




03672 


34 


00000 


00102 


WATY 


-WRI TE+1 


03684 


39 


0367J 


00100 


B 


READ 


03696 


49 


02602 


00000 


DORG 


*-4 


03703 








DORG 


*+6 


03708 









FKCK IS USED FOR MONITOR I SYSTEMS. CHECKS MANTISSA LENGTHS AND 
EXECUTES APPROPRIATE ACTIONS IF INCORRECT LENGTH 

.♦.COMPARE MANTISSA LENGTHS 



MOVE MONITOR SWAPPER 



01600 


FKCK 


C 


2398. FFKK 


01610 




BE 


FINE 


01620 




TD 


FUDGE . FFKK 


01630 




TD 


FUDGE— 2 .FFKK— 1 


01640 




TR 


SWAP2 .SWAP » » 


01650 




B 


SWAP2 


01660 




DORG 


*-4 


01670 


FINE 


BB 




01680 




DORG 


*-9 


01690* 




END OF 


FKCK 


01700* 




LEFT BREAK DETERM I N AT 


01710 


LBK 


TF 


80. CLEAR 


01720 




TF 


RBRK «-CNT 


01730 




C ■ 


RBRK.POW 


01740 




BE 


LRPOW 


01750 




C 


LBRK .PLUS 


01760 




BE 


LPL 


01770 




C 


LBRK. MINUS 


01780 




BE 


LMI 


01790 




C 


LBRK. STAR 


01800 




BE 


LSTAR 


01810 




C 


L6RK »P0W 


01820 




BE 


LPOW 


01830 




C 


LBRK. SLASH 



03708 


24 


02398 


11251 


03720 


46 


03776 


01200 


03732 


25 


12659 


11251 


03744 


25 


12657 


11250 


<iT0 UPPER 


CORE 




03756 


31 


19502 


12406 


03768 


49 


19502 


00000 


03775 








03776 


42 


00000 


00000 


03778 








03778 


26 


00080 


06067 


03790 


26 


06159 


1020R 


03802 


24 


06159 


06167 


03814 


46 


04536 


01200 


03826 


24 


06161 


10985 


03838 


46 


04006 


01200 


03850 


24 


06161 


10989 


03862 


46 


04026 


01200 


03874 


24 


06161 


06165 


03886 


46 


04090 


01200 


03898 


24 


06161 


06167 


03910 


46 


04110 


01200 


03922 


24 


06161 


06169 
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4 



018*0 




BE 


LSLASH 


03934 


46 


04474 


1200 


01850 




B 


STRER 




49 


03954 




01860 




DORG 


*-4 


03953 








01870 


STRER 


BTM 


WR I TE. STRMS 


03954 


17 


03672 




01880 


STRMS 


DAC 


20 »* I LLEGAL STRUCTURE* • » 


03967 


00040 




01890* 


LEFT BREAK OPERATION 










01900 


1 D 1 


BTM 






17 


05388 


-6089 


01910 




B 


RBK 




49 


04840 


00000 


01920 




DORG 


*— 4 


04025 








01930 


LM I 


B»M 


O 1 tKn » VAL 


04026 


17 


05388 


-6089 


01940 






jt 4. o 9 • T PPM — 7 


04 038 


44 


04070 


06132 


1 95 




z-p 


TERM— 2 


04050 


33 


06132 


00000 








RBK 


04062 


49 


04840 


00000 


01970 




DORG 




04069 








01 98 




SF 


TERM— 2 


04070 


32 


06132 


00000 


moon 




Q 


RBK 


04082 


49 


04840 


00000 


a oa a n 








04089 








0201 


L5TAR 


B ' M 


FMUL *0 


a 1. a q A 


17 


05210 


-0000 


02020 




B 


RBK 


04102 


49 


04840 


00000 


0203 
















02040 


LPOW 




r\T f CI/ « TCDU-^ 


04110 


25 


04349 


06132 


02050 




F LN 


Trou . TPDM 

1 tKrn • 1 tKM 


04122 


10 


02375 


-4141 










04134 


49 


0230- 


00000 










04141 


00005 -6134 










04146 


00005 -6134 












00001 • 




02060 




■j- p 


jin.n pad 


041 5 2 


26 


00080 


06067 


U £ U f u 




QTU 

a 1 M 


FMUL • 


04164 


17 


05210 


-0000 


020 80 




FE X 


TPDM * T PDM 


04176 


10 


02375 


-4195 










04188 


49 


0231- 


00000 










041 95 


00005 -6134 










04200 


00005 -6134 










042 05 


00001 • 








BN F 


die m n I Ci 


042 06 


44 


04430 


04349 


02100 




CM 


\/Al .flA.in 

VAL. u v »1U 


042 1 6 


14 


06089 


000-0 


02110 




BL 


OK 


04230 


47 


04430 


01300 


02120 




C 


W A 1 -C&YV 
VML » r r KK 


04242 


24 


06089 


11251 


02 130 




BP 


OK 


04254 


46 


04430 


01100 


02140 




TFM 


FIND»VAL 


04266 


16 


04313 


-6089 


02150 




S 


FIND.FFKK2 


04278 


22 


04313 


11299 


02160 




A 


F I ND » VAL 




21 


04313 


06089 


02170 




SF 


-FIND 


04302 


32 


0431L 


00000 


02180 


FIND 


DS 


5 »* 


04313 


00005 




02190 




AM 


FIND.I 


04314 


11 


04313 


-0001 


02200 




TF 


DIGSV, -FIND 


04326 


26 


04349 


0431L 


02210 




CF 


DIGB 


04338 


33 


04348 


00000 


02220 


DIGSV 


DC 


3»00O,* 


04349 


00003 




02230 


DIGB 


DS 


0»DIGSV-1 


04348 


00000 




02240 




AM 


DIGSV.05.10 


04350 


11 


04349 


000-5 


02250 


LOJP 


CM 


DIGB»0»10 


04362 


14 


04348 


000-0 


02260 




BE 


OK 


04374 


46 


04430 


01200 


02270 




BL 


NEG 


04386 


47 


04418 


01300 


02280 




SM 


DIGB.02.10 


04398 


12 


04348 


000-2 


02290 




B 


LOJP 


04410 


49 


04362 


00000 
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DORG 


*-4 


04417 








02310 


NEG 


SF 


TERM-2 


04418 


32 


06132 


00000 


02320 


OK 


BTM 


SVAL ♦ term 


04430 


17 


05300 


-6134 


02330 




SM 


LEVEL » 1 


04442 


12 


05894 


-0001 


02340 




BTM 


PULL »*+12 


04454 


17 


05740 


-4466 


02350 




B 


LBK 


04466 


49 


03778 


00000 
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02360 




DORG 


*-4 


04473 








02370 


LSLASH 


C 


VAL-2 .ZZERO-2 


04474 


24 


06087 


06154 


02380 




BE 


ZERDV 


04486 


46 


04592 


01200 


02390 




FD 


TERM » VAL 




10 


02375 


-4517 










045 1 


49 


0234- 


00000 










04517 


00005 -6134 










04522 


00005 -6089 










04527 


00001 ' 




02400 




B 


RBK 


04528 


49 


04840 


00000 


02410 




DORG 


*-4 


04535 








02420 


LRPOW 


AM 


LEVEL • 1 


04536 


11 


05894 


-0001 


02430 




TF 


LBRKST tLBRK 


04548 


26 


06163 


06161 


02440 




BTM 


PUSH »* + l 2 


04560 


17 


05506 


-4572 


02450 




BTM 


STERM, VAL 


04572 


17 


05388 


-6089 


02460 




B 


RSCAN 


04584 


49 


05470 


00000 


02470 




DORG 


*-4 


04591 








02480 


ZERDV 


WATY 


INFI N 


04592 


39 


04613 


00100 


02490 




B 


FIRST 


04604 


49 


02602 


00000 


02500 




DORG 


*-4 


046 1 1 








02510 


INFIN 


DAC 


10 » I NF IN I TE ' 1 


04613 


00020 




02520 


LLPAR 


AM 


LEVEL* 1 


04632 


11 


05894 


-0001 


02530 




BTM 


PUSH »* + 12 


04644 


17 


05506 


—4656 


02540 




B 


POOP 


04656 


49 


03170 


00000 


02550 




DORG 


*-4 


04663 








02560 


tsx 


BTM 


SVAL » SUM 




17 


05300 


-611 1 


02570 




SM 


LEVEL » 1 


04676 


12 


05894 


-0001 


0258 




BL 


PARER 




47 


04744 


01300 


02590 




BTM 


PULL »* + 12 


04700 


17 


05740 


-47 12 


02600 




BD 


DOWN »PD I G 


ni7i 3 


43 


04756 


10924 


0261 




AM 


CNT 9 2 


04724 


11 


10209 


-0002 


0262 




B 


LBK 


04736 


49 


03778 


00000 


02630 




DORG 


*— 4 


04743 








02640 


PARER 


BTM 


UD r TC.DxDUC 

WK I 1 1 1 r AKMo 


04744 


17 


03672 


-4813 


02650 


DOWN 


BTM 


SNUMB» VAL 


04756 


17 


05432 


-6089 


02660 




AM 


CNT.2 


04768 


11 


10209 


-0002 


02670 




TDM 


PDIG»0 


04780 


15 


10924 


00000 


02680 




TF 


PCNT »CNT 


04792 


26 


06203 


10209 


02690 




B 


-RTRN 


04804 


49 


1092L 


00000 


02700 




DORG 


*-4 


04811 








02710 


PARMS 


DAC 


14t*PAREN ERROR*' » 


04813 


00028 




02720* 


RIGHT 


3REAK DETERMINATION 










02730 


RBK 


C 


RBRK »EQUAL 


04840 


24 


06159 


06177 


02740 




BE 


REQUAL 


04852 


46 


05068 


01200 


0275 




C 


DRD^ tDl IIC 

kdkn .kluo 


04864 


24 


06159 


10985 


02760 




BE 


RPL 


04876 


46 


05016 


01200 


02770 




C 


RBRK .MINUS 


04888 


24 


06159 


10989 


02780 




BE 


RMI 


04900 


46 


05036 


01200 


02790 




C 


RBRK .STAR 


04912 


24 


06159 


06165 


02800 




BE 


RSTAR 


04924 


46 


05044 


01200 


02810 




C 


RBRK .POW 


04936 


24 


06159 


06167 


02820 




BE 


RPOW 


04948 


46 


05052 


01200 


02830 




C 


RBRK. SLASH 


04960 


24 


06159 


06169 


02840 




BE 


RSLASH 


04972 


46 


05060 


01200 


02850 




C 


RBRK .RPAR 


04984 


24 


06159 


06175 


02860 




BE 


RRPAR 


04996 


46 


05148 


01200 


02870 




B 


STRER 


05008 


49 


03954 


00000 


02880 




DORG 


*-4 


05015 








02890* 


RIGHT 


BREAK OPERATION 










02900 


RPL 


BTM 


FADD.O 


05016 


17 


05172 


-0000 


02910 




B 


RSCAN 


05028 


49 


05470 


00000 




o 



a 



0292 




DORG 


*-4 


02930 


RMI 


B 


RPL 


0294 




DORG 


*-4 


02950 


RSTAR 


B' 


RSCAN 


02960 




DORG 


*-4 


02970 


RPOW 


B 


RSCAN 


029B0 




DORG 


*-4 


0299 


RSLASH 


B 


RSCAN 


03000 




DORG 


*— 4 


03010 


REQUAL 


CM 


LEVEL. 


03020 




BNE 


PARER 


03030 




BTM 


FADD'O 


03040 




BTM 


PRINT. *+12 


03050 




BD 


READP2 ♦ READG 


03060 




BD 


INT02.DIGR 


0307 




B 


FIRST 


03080 




DORG 


»-4 


03090 


RRPAR 


BTM 


FADD »0 


03100 




B 


TSX 


03110 




DORG 


*-4 


03120 




DS 


5 


03130 


FADD 


FA 


SUM » TERM 



03140 BB 

03150 DORG *~9 

03160 DS 5 

03170 FMUL FM TERM » V AL 



03180 BB 

03190 DORG *-9 

03200* CALCULATES EFFECTIVE ADDRESS FOR INDIRECT 

03210 DS 5 

03220 CALC BNF BCALC. CALC-1 

03230 CF CALC-1 

03240 TF CALC-1 .-CALC+1 

03250 B CALC 

03260 DORG *~4 

03270 BCALC BB 

03280 DORG *~9 

03290 EFFECT DS 0»CALC-1 

03300* SPECIAL TFL COMMANDS 

03310 DS 5 

03320 SVAL TF VA|_.-SVAL+1 

0333C . SM SVAL-1.2 

03340 TF VAL-2»-SVAL+l 

0335 BB 

03360 DORG *-9 

03370 DS 5 

03380 SSUM TF SUM.-SSUM+l 

03390 SM SSUM-1.2 

03400 TF SJM-2.-SSUM+1 

03410 BB 

03420 DORG *-9 

03430 DS 5 



- 30 - 



05035 

05036 49 05016 00000 
05043 

05044 49 05470 00000 
05051 

05052 49 05470 OOOCO 
05059 

05060 49 05470 00000 
05067 

05068 14 05894 -0000 
05080 47 04744 012CC 
05092 17 05172 -0000 
05104 17 11000 -5116 
05116 43 08384 10972 
05128 43 10162 08164 
05140 49 02602 00000 
05147 

05148 17 05172 -0000 
05160 49 04664 OOOOo 
05167 

05171 00005 

05172 10 02375 -5191 
05184 49 0235- 00000 
05191 00005 -6111 
05196 00005 -6134 

05201 00001 ' 

05202 42 00000 00000 
05204 

05208 00005 
05210 10 02375 -5229 
05222 49 0234N 00000 
05229 00005 -6134 
05234 00005 -6089 

05239 00001 ' 

05240 42 00000 00000 
05242 

ADDRESSED OPS 

05246 00005 

05248 44 05292 05247 
05260 33 05247 00000 
05272 26 05247 0524P 
05264 4y 05240 00000 
05291 

05292 42 00000 00000 
05294 

05247 00000 

05298 00005 

05300 26 06089 0529R 

05312 12 05299 -0002 

05324 26 06067 0529R 

05336 42 00000 00000 

05338 

05342 00005 

05344 26 06111 0534L 

05356 12 05343 -0002 

05368 26 0610V 0534i_ 

05380 42 00000 00000 

05382 

05386 00005 



- 31 - 





-j p 


term.— ste rm+ i 


05388 


26 


06134 


0538P 


03450 


SM 


STERM-l .2 


05400 


12 


05387 


-0002 


03460 


TF 


TERM-2.-STERM+1 


05412 


26 


06132 


0538P 


03470 


BB 




05424 


42 


00000 


00000 


03480 


DORG 


*-9 


05426 








03490 


DS 


5 


05430 


00005 




03500 SNUMB 


TF 


NUMB .-SNUMB+ 1 


05432 


26 


10968 


0543J 


03510 


SM 


SNUMB-1.2 


05444 


12 


05431 


-0002 


03520 


TF 


NUMB-2 .-SNUMB+1 


05456 


26 


10966 


0543J 


03530 


BB 




05468 


42 


00000 


00000 


03540 


DORG 


*-9 


05470 








03550* 


RSCAN 


ROUTINE 










03560 RSCAN 


AM 


CNT.2 


05470 


11 


10209 


-0002 


03570 


TF 


LBRK.RBRK 


05482 


26 


06161 


06159 


03580 


B 


LOOPR 


05494 


49 


03266 


00000 


0359 


DORG 


*-4 


05501 








03600* 


PUSH SAVES SUM. TERM. LBRKST 










03610* 


USED WITH ( ) FOR RECURSIVENESS 










0362 


DORG 


*+6 


05506 








03630 PUSH 


A 


TSAVE » FFKK2 


05506 


21 


05733 


11299 


03640 


TF 


*+35 .TSAVE 


05518 


26 


05553 


05733 


03650 


TFLS 


-TSAVE.SUM 


05530 


10 


02375 


-5549 








05542 


49 


0228N 


00000 








05549 


00005 -573L 








05554 


00005 -6111 








05559 


00001 • 




03660 


A 


TSAVE » FFKK2 


05560 


21 


05733 


11299 


0367 


TF 


*+35. TSAVE 


05572 


26 


05607 


05733 


03680 


TFLS 


-T SAVE • T ERM 


05584 


10 


02375 


-5603 








05596 


49 


0228N 


00000 








05603 


00005 -573L 








05608 


00005 -6134 








05613 


00001 • 




03690 


AM 


TSAVE. 6 


05614 


11 


05733 


-0006 


03700 


TF 


-TSAVE. PDIG 


05626 


26 


0573L 


10924 


0371 


AM 


TSAVE. 2 


05638 


11 


05733 


-0002 


0372 


TF 


-TSAVE » LBRKS T 


05650 


26 


0573L 


06163 


03730 


CM 


TSAVE. SAVE+TAB1Z 


05662 


14 


05733 


-6047 


03740 


BNL 


FULLP 


05674 


46 


05844 


01300 


0375 


BTM 


SSUM»ZZERO 


05686 


17 


05344 


-6156 


03760 


BTM 


STERM.ZZERO 


05698 


17 


0538d 


-6156 


03770 


TDM 


PDIG.O 


05710 


15 


10924 


00000 


03780 


B 


-PUSH+1 


05722 


49 


0550N 


00000 


03790 


DORG 


*-4 


05729 








03800 TSAVE 


DS 


5 


05733 


00005 




03810* 


PULL RESTORES SUM . T ERM . LBRK 










03820* 


SEE ABOVE 










03830 


DORG 


*+6 


05739 








03840 PULL 


TF 


LBRK .-TSAVE 


05740 


26 


06161 


0573L 


03850 


SM 


TSAVE. 2 


05752 


12 


05733 


-0002 


03860 


TF 


PDIG" -TSAVE 


05764 


26 


10924 


0573L 


03870 


SM 


TSAVE. 6 


05776 


12 


05733 


-0006 


0388C 


BT 


STERM. TSAVE 


05788 


27 


05388 


05733 


03890 


S 


TSAVE. FFKK2 


05800 


22 


05733 


11299 


03900 


BT 


SSUM » T SAVE 


05812 


27 


05344 


05733 


03910 


S 


TSAVE.FFK.K2 


05824 


22 


05733 


11299 


03920 


B 


-PULL+1 


05836 


49 


0573R 


00000 


03930 


DORG 


*-4 


05843 








03940 FULLP 


BTM 


WRI TE. PARFL 


05844 


17 


03672 


-5857 


0395C PARFL 


DAC 


17.*PAREN OVERFLOW* • . 


05857 


00034 





- 32 - 



- 33 - 





LEVEL 


DS 


5 




05894 


00005 




03970 


RDIG 


DS 


1 




05895 


00001 




03980 


SAVE 


DS 


2...DORG STATEMENT MUST FOLLOW 


05897 


00002 




03990 




DORG 


♦+TAB1Z 




06047 






04000* 


VARIABLES 










04010 


CLEAR 


DC 


21 ♦OOOOOOOOOOOOOOOOOOOOOt 


06067 


00021 




04020 




DC 


20,0. 




06087 


00020 




04030 


VAL 


DC 


2»1. 




06089 


00002 




04040 




DC 


20, Ot 




06109 


00020 




04050 


SUM 


DC 


2»1» 




06111 


00002 








DC 


1»«. 




06112 


00001 




04070 




DC 


20.0. 




06132 


00020 




0408 


TERM 


DC 


2»1» 




06134 


00002 




0409 




DC 


20»0» 




06154 


00020 




04100 


ZZERO 


DC 


2»-99» 




06156 


00002 




04110* 


END OF 


FLOATING POINT VARIABLES 








0412 


RBRK 


DAS 


1 




06159 


00002 




04130 


LBRK 


DAS 


1 




06161 


00002 




04140 


LBRKST 


DAS 


1 




06163 


00002 




04150 


STAR 


DAC 


1»»» 




06165 


00002 




04160 


POW 


DAC 


l.P. 




06167 


00002 




04170 


SLASH 


DAC 


1»/. 




06169 


00002 




04180 


DOL 


DAC 


1»S. 




06171 


00002 




04190 


LPAR 


DAC 


1»( » 




06173 


00002 




04200 


RPAR 


DAC 


1.) . 




06175 


00002 




04210 


EQUAL 


DAC 


2 '= ' • 




06177 


00004 




0422 


AT 


DAC 


2" » 




06181 


00004 




04230 


A 


DAC 


1»A» 




06185 


00002 




04240 


MESS3 


DAC 


6 »READY ' » 




06187 


00012 




04250 




DORG 


*+6 




06203 






04260* 
















04270* 


FETCH 


CONVRTS NUMERICAL 


INPUT INTO FLOATING 


POINT NOTATION AND 




0428 0* 




ADJUSTS FOR MANTISSA 


LENGTH { FFKK ) 








04290* 
















04300 


FETCH 


CF 


FSIGN 




06204 


33 10971 


00000 


0431 




TFM 


INC»1»10 




06216 


16 11131 


000-1 


04320 




TFM 


CNT.NUMB-1 




06228 


16 10209 


J0967 


0433 




S 


CNT.FFKK 




06240 


22 10209 


11251 






TF 


INSRT2+6.CNT 




06252 


26 06914 


10209 


043 5 




TDM 


FULL»0 




06264 


15 10970 


00000 


0436 


INSRT1 


TF 


NUMBRtCNT 




06276 


26 11107 


10209 


04370 




BTM 


SNUMB.ZERO 




06288 


17 05432 


J0946 


0438 




B 


*+24 




06300 


49 06324 


00000 


04390 


INLOP 


AM 


PCNT.2 




06312 


11 06203 


-0002 


04400 




C 


PERIOD»-PCNT 




06324 


24 10981 


0620L 


04410 




BE 


FRACT 




06336 


46 06564 


01200 


0442 




C 


AZERO.-PCNT 




06348 


24 10978 


0620L 


0443 




BE 


INLOP 




06360 


46 06312 


01200 


04440 




BP 


PEND 




06372 


46 07020 


01100 


04450* 


PEND HANDLES FUNCTIONS 










04460 


LOOP 


BD 


*+24.FULL 




06384 


43 0640a 


10970 


0447 




TD 


-NUMBR » -PCNT 




06396 


25 1110P 


0620L 


04480 




AM 


PCNT.2 




06408 


11 06203 


-0002 


04490 




C 


PERIOD»-PCNT 




06420 


24 10981 


0620L 


04500 




BNE 


*+36 




06432 


47 06468 


01200 


04510 




TFM 


INC. 0.10 




06444 


16 11131 


000-0 


04520 




B 


*-48 




06456 


49 06408 


00000 


04530 




C 


AZERO»-PCNT 




06468 


24 10978 


0620L 


04540 




BP 


END 




06480 


46 06644 


01100 


04550 




A 


NUMB. INC 




06492 


21 10968 


11131 




04560 


AM 


NUMBR. 1 






06504 


11 


11107 


-0001 


04570 


CM 


NUMBR. NUMB- 1 






06516 


14 


11107 


J0967 


04580 


BNE 


*+24 






06528 


47 


06552 


01200 


04590 


TDM 


FULL'l 






06540 


15 


10970 


00001 


0460 


B 


LOOP 






06552 


49 


06384 


00000 


04610 FRACT 


S 


NUMB. INC 






06564 


22 


10968 


11131 


04620 


AM 


PCNT.2 






06576 


11 


06203 


-0002 


04630 


C 


AZERO.-PCNT 






06588 


24 


10978 


0620L 


04640 


BE 


FRACT 






06600 


46 


06564 


01200 


04650 


BP 


END 






06612 


46 


06644 


01100 


04660 


TFM 


INC.O. 10 






06624 


16 


11131 


000-0 


04670 


B 


LOOP 






06636 


49 


06384 


00000 


0468 


DORG 


*-4 






06643 








04690 END 


c 


E »— PCNT 






06644 


24 


10991 


0620L 


04700 


BNE 


END2 






06656 


47 


06908 


01200 


04710 


AM 


PCNT .2 






06668 


11 


06203 


-0002 


04720 


CF 


FLAG 






06680 


33 


10994 


00000 


04730 


C 


PLUS. -PCNT 






06692 


24 


10985 


0620L 


04740 


BE 


SIGN 






06704 


46 


06752 


01200 


04750 


c 


MINUS. -PCNT 






06716 


24 


10989 


0620L 


0476 


BNE 


SIGN+12 






06728 


47 


06764 


01200 


04770 


SF 


FLAG 






06740 


32 


10994 


00000 


04780 SIGN 


AM 


PCNT .2 






06752 


11 


06203 


-0002 


04790 


TFM 


I NC » • 1 






06764 


16 


11131 


000-0 


04800 


TD 


INC .-PCNT 






06776 


25 


11131 


0620L 


04810 


AM 


PCNT.2 






06788 


11 


06203 


-0002 


04820 


C 


AZERO.-PCNT 






06800 


24 


10978 


0620L 


04830 


BP 


END2-36 






06812 


46 


06872 


01100 


04840 


TD 


INC-l.INC 






06824 


25 


11130 


11131 


04850 


TD 


INC. -PCNT 






06836 


25 


11131 


0620L 


04860 


AM 


PCNT.2 






06848 


11 


06203 


-0002 


04870 


SF 


INC-1 






06860 


32 


11130 


00000 


04880 


BNF 


END2-12.FLAG 






06872 


44 


06896 


10994 


04890 


SF 


INC 






06884 


32 


11131 


00000 


04900 


A 


NUMB. INC 






06896 


21 


10968 


11X3-1 


04910 END2 


SF 


NUMB-9 






06908 


32 


10959 


00000 


04920 


BNF 


*+24. FSIGN 






06920 


44 


06944 


10971 


04930 


SF 


NUMB-2 






06932 


32 


10966 


00000 


04940 IR1 


DS 


5»* 






06943 


00005 




04950 


B 


-IR1 






06944 


49 


0694L 


00000 


04960 


DORG 


*-4 






06951 








04970* 


















04980* 


PEND HANDLES FUNCTIONS AS LONG AS 


ARGUEMENTS 


ARE NOT FUNCTIONS 




04990* 


















05000* 


THE FOLLOWING FUNCTIONS ARE ALLOWED 












05010* 


SIN.C0S.SQRT.ATAN.LN.L0GN.LOG 


.LOG10 


.EXP. 


EXP10 








05020* 


NOTE LN AND LOGN ARE THE SAME 


. SAME 


FOR 


LOG AND LOG10 






05030 GOOP 


SM 


PCNT.2 






06952 


12 


06203 


-0002 


05040 


C 


AZERO.-PCNT 






06964 


24 


10976 


0620L 


05050 


BNE 


STRER 






06976 


47 


03954 


01200 


05060 


AM 


PCNT.2 






06988 


11 


06203 


-0002 


05070 


SF 


-END2-6 






07000 


32 


0691M 


00000 


05080 


B 


-IR1 






07012 


49 


0694L 


00000 


05090 


DORG 


*-4 






07019 








05100 PEND 


C 


A4.-PCNT 






07020 


24 


07567 


0620L 


05110 


BP 


GOOP 






07032 


46 


06952 


01100 


05120 


TF 


TCNT.PCNT 






07044 


26 


09689 


06203 


05130 


TFM 


C0NTR.2 






07056 


16 


07431 


-0002 


05140 


SM 


TCNT.l 






07068 


12 


09689 


-0001 


05150 AG1 


AM 


TCNT.3 






07080 


11 


09689 


-0003 




o 



05160 




C 




05 170 




BP 


URP 1 


05 18 




SM 


TCNT 1 1 


05190 




Q p 


-TCNT 


05200 




AM 


CONTR .2 


05210 




CM 


CONTR* 10 


05220 




BNE 


AG1 


0523 


URP 


AM 


TCNT » 1 


05240 




TF 


COMPR* INTEX 


05250 


LOOPT 


AM 


COMPR* 16 


05260 




BNR 


*+24 .-COMPR 


0527 




B 


TABN 


0528 




BV 


♦+12 


05290 




C 


-TCNT, -COMPR 


05300 




BV 


LOOPT 


0531 




BNE 


LOOPT 


0532 




AM 


COMPR » 1 


0533 




BD 


FUNT »-COMPR 


05340 




AM 


COMPR » 5 






SF 


COMPR 


05360 


COMPR 


DS 


5 ** 


0537 




bt 


CAlC »compr 


0538 




bt 


SNUMB.EFFECT 


05390 






PCNT »CONTR 


0540 




B 


-IR1 


0541 




DORG 


*-4 


05420 


URP 1 


SM 


TCNT *2 


05430 




B 


URP+12 


05440 




DORG 


* — 4 


05450 


FUNT 


BNR 


FUNC »-COMPR 


0546 




AM 


COMPR » 5 


0547 




SF 


COMPR 




CONTR 


DS 


5 ♦* 


05490 




g 


-COMPR 


0550 




DORG 


*~4 


05510 


FUNC 


AM 


COMPR ♦ 5 


05520 




TF 


RTRN. -COMPR 


05530 




A 


PCNT .CONTR 


05540 




C 


LPAR*-PCNT 


05550 




BNE 


PARER 


0556 




AM 


PCNT »2 


05570 




B 


COMM 


05580 




DORG 


*-4 


05590 


TABN 


SM 


CONTR*2 


05600 




BZ 


VARER 


05610 




SM 


TCNT .1 


05620 




SF 


-TCNT 


05630 


A4 


DC 


2»40»» 


05640 




SM 


TCNT .1 


05650 




B 


LOOPT-12 


05660 




DORG 


*-4 


05670 


VARER 


BTM 


WRITE » VARMES 


05680 


VARMES 


DAC 


: 21 **UNDEF I NED VARIABLE*' 


05690 


LOG10 


DAC 


5»LOG10. 


05700 




DC 


1*1* 


05710 




DSA 


LOGTN 


05720 




DAC 


5 .EXP10. 


05730 




DC 


l'l. 


05740 




DSA 


EXPTN 


0575C 




DAS 


1 



34 - 



07092 


24 


07567 


0968R 


07104 


46 


07376 


01100 


07116 


12 


09689 


-0001 


07128 


33 


0968R 


00000 


07140 


11 


07431 


-0002 


07152 


14 


07431 


-0010 


07164 


47 


07080 


01200 


07176 


11 


09689 


-0001 


07188 


26 


07331 


08152 


07200 


11 


07331 


-0016 


07212 


45 


07236 


0733J 


07224 


49 


07520 


00000 


07236 


46 


07246 


01400 


07248 


24 


0968R 


0733 J 


07260 


46 


07 200 


01400 


07272 


47 


07200 


01200 


07284 


11 


07331 


-0001 


07296 


43 


07396 


0733J 


07308 


11 


07331 


-0005 


07320 


32 


07331 


00000 


07331 


00005 




07332 


27 


05248 


07331 


07344 


27 


05432 


05247 


07356 


21 


06203 


07431 


/3b6 


49 


0694L 


OOOOO 


07375 








07376 


12 


09689 


-0002 


07388 


49 


07168 


OOOOO 


07395 








07396 


45 


07440 


0733J 


07408 


11 


07331 


-0005 


07420 


32 


07331 


00000 


07431 


00005 




07432 


49 


0733 J 


OOOOO 


07439 








07440 


11 


07331 


-0005 


07452 


26 


10923 


0733 J 


07464 


21 


06203 


07431 


07476 


24 


06173 


0620L 


07468 


47 


04744 


01200 


07500 


11 


06203 


-0002 


07512 


49 


10888 


OOOOO 


07519 








07520 


12 


07431 


-0002 


07532 


46 


07588 


01200 


07544 


12 


09689 


-0001 


07556 


32 


0968R 


OOOOO 


07567 


00002 




07568 


12 


09689 


-0001 


07580 


49 


07188 


OOOOO 


07587 








07588 


17 


03672 


-7601 



07601 00042 
07643 00010 
07652 00001 
07657 00005 J0490 
07659 00010 
07668 00001 
07673 00005 J0528 
07675 00002 
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05760 


DAC 


4»L0GN. 


07677 


00008 




05770 


DC 


l'l. 


07684 


00001 




05780 


DSA 


LOGNF 


07689 


00005 


J0566 


05790 


DAS 


1 


07691 


00002 




05800 


DAC 


4 * AT AN * 


07693 


00008 




05810 


DC 


1*1. 


07700 


0000 1 




05820 


DSA 


ATANF 


07705 


00005 


J0642 


05830 


DAS 


1 


07707 


00002 




05840 


DAC 


4 » SORT » 


07709 


00008 




05850 


DC 


1*1. 


07716 


00001 




05860 


DSA 


SQRTF 


07721 


00005 


J0604 


05870 


DAS 


3 


07723 


00006 




05880 


DAC 


2»LN» 


07729 


00004 




05890 


DC 


1»1. 


07732 


00001 




05900 


DSA 


LOGNF 


07737 


00005 


J0566 


05910 


DAS 


2 


07739 


00004 




05920 


DAC 


3. EXP. 


07743 


00006 




05930 


DC 


1»1* 


07748 


00001 




05940 


DSA 


EXPF 


07753 


00005 


J0680 


05950 


DAS 


2 


07755 


00004 




05960 


DAC 


3»L0G. 


07759 


00006 




05970 


DC 


1»1. 


07764 


00001 




05980 


DSA 


LOGTN 


07769 


00005 


J0490 


05990 


DAS 


2 


07771 


00004 




06000 


DAC 


3»C0S. 


07775 


00006 




06010 


DC 


1»1. 


07780 


00001 




06020 


DSA 


COSF 


07785 


00005 


J0718 


06030 


DAS 


2 


07787 


00004 




06040 


DAC 


3» SIN. 


07791 


00006 




06050 


DC 


1.1. 


07796 


00001 




06060 


DSA 


SINF 


07801 


00005 


J0756 


06070 


DAS 


2 


07803 


00004 




06080 


DAC 


3 »ABS. 


07807 


00006 




06090 


DC 


1*1. 


07812 


00001 




06100 


DSA 


ABSF 


07817 


00005 


J0794 


06110 


DAC 


5» CLEAR. 


07819 


00010 




06120 


DC 


1» ' . 


07828 


00001 




06130 


DSA 


CLAPR 


07833 


00005 


-8488 


06140 


DAC 


5»PRINT. 


07835 


00010 




06150 


DC 


1" . 


07844 


00001 




06160 


DSA 


PRINF 


07849 


00005 


-8546 


06170 


DAC 


5.DEFIN. 


07851 


00010 




06180 


DC 


1 » ' . 


07860 


00001 




06190 


DSA 


DEFE 


07865 


00005 


-9558 


06200 


DAC 


5.EF0RM. 


07867 


00010 




06210 


DC 


1« ' . 


07876 


00001 




06220 


DSA 


EFORM 


07881 


00005 


-9246 


06230 


DAC 


5.FF0RM. 


07883 


00010 




06240 


DC 


1. ' . 


07892 


00001 




06250 


DSA 


FFORM 


07897 


00005 


-9266 


06260 


DAC 


5 »COFRM. 


07899 


00010 




06270 


DC 


1 . • . 


07908 


00001 




06280 


DSA 


COFRM 


07913 


00005 


-9286 


06290 


DAC 


5. BRIEF. 


07915 


00010 




06300 


DC 


1. « . 


07924 


00001 




06310 


DSA 


BRIEF 


07929 


00005 


-9306 


06320 


DAC 


5.FANDK. 


07931 


00010 




06330 


DC 


1»« . 


07940 


00001 




06340 


DSA 


GFFK.K 


07945 


00005 


-2542 


06350 


DAS 


1 


07947 


00002 
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06360 DAC 4.PR0G. 

06370 DC 

06380 DSA PROG 

06390 DAC 5»RESUL» 

06*00 DC 1 ♦ * ♦ 

06410 DSA INT02 

06420 DELT DAC 5 tDELET i 

06430 DC 

06440 DSA DELE 

06450 DAS 1 

0646 DAC 4 .EXIT. 

06470 DC 1»»» 

06460 DSA 00796 

06490 DAS 1 

06500 DAC 4»READ» 

06510 DC 1»«» 

06520 DSA READP1 

06530 DAS 1 

06540 DAC 4»TYPE» 

06550 DC 

06560 DSA TYPER 

06570 DAS 1 

06580 DAC 4»CARD» 

06590 DC 1»'» 

06600 DSA CARDER 

06610 BEGN DAC 5» ' » 

06620 DSS DEFTB1*16 

06630 INTEX DSA LOGlO-8 

06640 CONEX DSA BEGN-8 

06650 INDIC DSA CONST 

06660 DIGL DS 1 

06670 DIGR DS 1 

06680 TOLNG BTM WRlTE.LNGMS 

06690 LNGMS DAC 16»*NAME TOO LONG*'* 

06700 DCODE DAC 2»E/» 

06710 TYPER TDM RATY+9»-l 

06720 B READ 

06730 DORG *~4 

06740 CARDER TDM RATY+9.5 

06750 B READ 

06760 DORG *~4 
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